This R Markdown is to get to know Tamar!

Bio

Tamar is a graduate student in the Cell and Systems Biology program and the University of Toronto. She complete a Bachelors of Science at the University of British Columbia studying Microbiology and Immunology and Computer Science.

Bachelors Degree

Table 1. Record of all undergraduate courses

# show a table with all my courses 
paged_table(courses)

## organize the data for plotting
courses_counts <- courses %>%
  group_by(Course.Department, course_type) %>%
  count()

# plot 
ggplot(data=courses_counts, aes(x=Course.Department, y=n, fill=course_type)) +
  geom_bar(stat="identity", width=0.5) +
  labs(y="Number of Courses", x="Course Department", fill="Course Type") +
  theme_light() + 
  scale_y_continuous(limits = c(0, 12), breaks = seq(0, 12, by = 2))+
  ggtitle("Tamar's Undergraduate Degree")+
  theme(axis.text.y=element_text(size=12),
        axis.text.x=element_text(size=12))

Figure 1 summary of undergraduate courses barplot of the number of courses taken throughout the undergraduate degree. Colors represent the catagory of each course as part of the undergraduate course requirements.

Hobbies

I have many hobbies such as: knitting, swimming, watching movies, reading, cooking.

# plot 
ggplot(data=hobbies, aes(x=hobby, y=hours_per_week)) +
  geom_bar(stat="identity", width=0.5) +
  labs(y="Hours per Week", x="Hobby") +
  theme_light() + 
  ggtitle("Tamar's Weekly Hobbies")+
  theme(axis.text.y=element_text(size=12),
        axis.text.x=element_text(size=12))

Figure 2 barplot of the number of hours spent a week on each hobby.

Right now my favorite hobby is knitting!